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S £ C T I 0 ’i  1.  I TRl’l'VC  T I UN 

1.1.  Purpose  cf  the  VALIDATION  S u e in ..  r y Report 

The  Validation  Summary  Report  (VSR)  provides  a consolidated  summary  of  the 
compiler  identified  in  this  document.  The  purpose  of  the  report  is  to 
identify  individual  CdROL  Language  elements  whose  usage  does  not  conform 
to  the  Federal  CC>:0L  Standard  as  specified  in  FIPS  PUB  21. 

The  results  of  running  the  COfiOL  Compiler  Validation  System  recorded 
in  the  VSR  do  not  suggest  the  decree  to  which  the  compiler  is  usable 
(i.e.*  capable  of  data  processinn  applications)*  hut  the  degree  to  which 
individual  tanguace  elements  are  usable.  This  will  give  an  indication  of 
possible  conversion  procedures  which  may  be  necessary  in  order  to  utilize  a 
source  program  from  another  system  supporting  tie  federal  Standard  for  the 
COBOL  language. 

1.2.  Preparation  of  the  VSR 

The  Validation  Summary  Report  is  prepared  by  amlyyinn  the  results  of 
running  the  COBOL  Compiler  Validation  System.  The  C(H?L  Compiler 
Validation  System  consists  of  audit  routines*  their  related  data*  and 
an  executive  routine  (VP-routine)  which  irereres  the  audit  routines 
for  compilation.  Each  audit  routine  is  a COBOL  program  which  includes 
many  tests  and  supporting  procedures  indicatino  the  result  of  the 
tests.  The  audit  r.outines  collectively  contain  the  features  of 
Federal  Standard  COBOL. 

The  testing  of  a compiler  in  a particular  hardware/operat inq  system  environment 
is  ac comp l i s hed  by  compiling  and  executing  each  audit  routine.  The  output 
report  produced  by  each  routine  tells  whether  the  compiler  passed  or 
failed  the  tests  in  the  routine. 

If  the  compiler  rejects  some  language  elements  by  termination  compilation* 
giving  fatal  diagnostic  messages*  or  terminating  execution  abnormally* 
then  the  test  containing  the  code  the  compiler  was  unable  to  process 
is  deleted  and  the  audit  routine  compilation  and  execution  repeated. 

The  compilation  listings  and  the  output  reports  of  the  audit  routines 
constitute  the  raw  data  from  which  the  members  of  the  Federal 
COBOL  Compiler  Testing  Service  produce  a Validation  Summary  Report. 

1.3.  Organization  of  the  VSR 

The  Validation  Summary  Report  is  made  up  of  several  sections  showing 
the  discrepancies  found.  The  following  briefly  describes  the  content 
of  these  sections. 

a.  Section  2 summarizes  the  results  of  the  compilation  and  execution 
of  the  programs  comprising  the  COBOL  Compiler  Validation  System. 
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Sstticn  2 is  subdivided  into  Section  2.1/  syntax  not  accented  by 
t *s  e emptier;  and  Section  2.2/  semantic  differeners  between  the 
compiler  i r-  r t csen  t o t ion  and  the  language  specification.  >'  l l errors 
are  grouped  t.y  processing  nodule. 

b.  FIPS  PUP  21  defines  four  levels  of  the  COPOL  'tandaril  for  the 
Federal  Community.  Section  3 of  the  VSR  lists  the  discrepancies 
described  in  Section  2 by  the  level  in  which  the  problem  occurs.  This  readily 
permits  easy  de t e r n,  ina t ion  of  the  status  of  the  compiler  against  a particular 
level. 

c.  Section  4 contains  information  discovered  during  the  validation  process 
which  dees  not  impact  the  status  of  the  compiler  with  respect  to  the  defined 
federal  CODF-L  levels. 


d.  Appendix  A is  the  Validation  Summary  Working  Paper. 

1.4.  Abstract  covering  compliance  to  FIFS  PUP  21 

Definition  of  an  Implementation  of  USA  Standard  COBOL  (excerpts  from  ANSI 
Standard  COBOL  X3. 23-1968/  Chapter  1). 

Throughout  the  USA  Standard  COBOL  specifications/  there  are  certain 
language  elements  that  depend/  for  their  implementation/  on  particular 
types  of  hardware  components.  The  implementor  specifies  the  minimum  hard- 
ware cont  i'-urat  ion  required  for  a riven  imp  Intent  at  ion  of  USA  Standard 
COBOL  and  the  hardware  components  that  it  supports.  Any  lanruaqe  elements 
that  depend  on  hardware  components  for  which  support  is  claimed  must  be 
implemented.  Language  elements  that  are  not  implemented  because  of  their 
dependence  on  hardware  components  whose  support  is  not  claimed  for  an 
implementation  must  be  so  specified  and  their  absence-  will  not  render  the 
implementation  nonstandard. 

When  a facility  is  provided  that  accomplishes  the  function  specified  by 
any  particular  COBOL  element/  it  may  he  unnecessary  to  include  that 
particular  element  within  the  COBOL  source  program.  If  such  an 
unnecessary  element  does  appear  in  the  source  program/  it  must  be 
accepted  by  the  compiler.  However/  if  the  element  does  not  lead  to  the 
production  of  object  code/  no  substitute  statements  shall  be  required 
within  the  COBOL  source  program  to  accomplish  this  function. 

By  the  same  token/  the  inclusion  of  language  elements  or  of  functions  that 
are  not  a part  of  the  USA  Standard  COBOL  specifications  will  not  render 
an  implementation  of  USA  Standard  COBOL  nonstand a rd.  This  is  true  even 
though  it  may  imply  the  extension  of  the  list  of  reserved  words  ty  the 
implementor/  and  prevent  proper  compilation  of  some  programs  which  con- 
form to  the  Standard. 
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The  f e d e r I C . " Dl.  S t ;•  •>  d a r d 


The  C w 5: 0 L Co  [liter  Validation  results  enclosed  in  this  document 
reflect  the  degree  to  ehich  the  subject  COBOL  compiler  i '•  elements  the 
Federal  COBOL  Standard.  The  Federal  COBOL  Standard  is  essentially  the 
same  as  the  ANSI  Standard  with  two  exceptions: 

The  T e d e r a l Standard  defines  4 levels  and  the 
ANSI  Standard  defines  only  the  minimum  CCEOL 
implementation  arid  the  full  standard.  Low  arid  high 
levels  of  the  Federal  COfOL  Standard  (see  1.5) 
correspond  to  the  above  two  ANSI  levels 
(minus  the  Report  Writer  module).  Two  additional 
Irvrls,  l ow * i n t er m ed i a t e and  h i gh -i n t e rued i a t e have  been 
included  in  the  Federal  Standard  between  the  highest 
and  lowest  subsets.  These  additional  levels  accommodate 
hardware  which  cannot  support  the  full  stanH,ird>  lut  which 
is  capable  of  imp l emen t i no  more  than  the  minimum  standard. 

The  Report  Writer  hodule  has  been  temporarity 
dropped  from  the  Federal  Standard,  however,  use 
of  the  nodule  is  encouraoed  whenever  it  is  available. 

The  Federal  Standard  requires  that  a compiler  contain  as  a minimum, 
the  elements  specified  in  at  Irast  one  of  the  Federal  levels.  No 
restrictions  are  imposed  on  the  inclusion  of  selected  features  from 
higher  levels  or  even  unique  vendor  extensions.  Compatibility 
among  various  implementations  of  a given  level  containing  additional 
features  must  be  controlled  by  management  imposed  standards  and 
rest  rict ions. 

1.5.  Federal  Standard  COBOL  Levels 

The  Federal  Government  has  defined  four  nested  levels  of  the 
ANSI  Standard  COBCL  XS. 23-1964.  Not  ell  computers  are  large 
enough  to  accommodate  a COBOL  compiler  containing  the  full  ANSI 
Standard.  Therefore,  the  Federal  Government  requires  that  all 
compilers  acquired  by  its  agencies  contain  as  a minimus  one  of  the 
four  Federal  levels,  depending  on  machine  size,  configuration  and  user 
needs.  The  knowledge  that  all  computers  will  support  at  least  one  of 
these  four  subsets  simplifies  the  task  of  developing  machine-independent 
COBOL  programs. 

1.6.  Use  of  the  VSR 

The  Federal  COBOL  Compiler  Testinn  Service  may  make  full  and  free  public 
disclosure  of  the  Validation  Summary  Report  (VSR)  in  accordance  with  the 
"freedom  of  Information  Act"  (5  U.S.C.  *552).  The  results  of  the  valida- 
tion are  only  for  the  purpose  of  satisfying  United  States  Government 
requiremrnts,  and  apply  only  to  the  computer  system,  operating  system 
release,  and  compiler  version  identified  in  the  VSR. 
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The  Ci'301  Compiler  Validation  System  is  used  to  determine  insofar  ,is  is 

practical,  the  Jejrer  to  u*  i c h 1 1 . e-  mj1  j.*ct  i l < r conforms  to  the 

C.'bOL  Standard.  Thus,  the  VSR  is  necessarily  discretionary  and  judq  ental. 

The  United  States  Government  rioPS  nut  represent  or  warrant  tlat  the  state- 
i?nts/  or  any  one  of  them,  set  forth  in  the  VSK  are  accurate  or  complete. 

The  VSR  is  not  meant  to  be  used  for  the  purpose  of  publicizing  the 
findings  summarized  therein. 

1.7.  Sources  of  Additional  Information 

FIRS  PUP  71  defines  the  Federal  COBOL  Lanouane  Standard.  This  publi- 
cation is  available  from  the  Superintendent  of  Documents s U.S. 

Sovernment  Printing  Office,  Washington,  O.C.  20402. 

The  detailed  COPOL  languaoe  specifications  are  given  in  the  publication 
"USA  Standard  COBOL,  > i .2 3-1 9f 8",  available  from  American  National  Standards 
Institute,  1470  Broadway,  New  York,  New  York  1CC18. 

An  explanation  of  the  COeOL  Compiler  Validation  System  is  contained  in  the 
CCVS  User's  Guide.  This  document  explains  how  to  run  the  compiler  validation 
system.  The  User's  Guide  and  a magnetic  tape  source  image  copy  of  the  CCVS 
programs  are  available  from  the  National  Technical  Information  Service, 
Springfield,  Virginia,  72151. 

I.P.  Requests  for  Interpretation 

Questions  rcuarding  this  VSR  or  the  CCVS  should  be  forwarded  to  the  FCCTS. 

If  any  problem  cannot  be  adequately  resolved  through  the  FCCTS,  the  request 
for  interpretation  will  be  forwarded  to  the  Federal  COEOL  Interpretation 
Committee  for  final  resolution. 

A brochure  describing  the  Validation  process  including  the  procedure  for 
requesting  a validation  and  resolution  of  questions  involving  int erpret at  ion 
of  the  current  Federal  Standard  is  available  from  the  Department  of  the  Navy, 
Federal  COBOL  Compiler  Testing  Service,  Washington,  O.C.  20376. 

1.9  Federal  Standard  COBOL  Approved  Interpretation 

The  National  Pureau  of  Standards  published  in  the  Federal  Register  Vol.  41 
No.  179»  September  14,  1976,  an  approved  interpretation  of  Federal  Standard 
COBOL  as  pertains  to  the  evaluation  of  arithmetic  expressions  in  the  COMPUTE 
statements.  This  interpretation  states  that  "size  of  the  intermediate  result 
field  is  i mp l empn t or-de f i ned  . " 

Since  the  results  of  evaluating  arithmetic  expressions  are  not  predictable,  all 
COMPUTE  statements  and  IT  statements  containing  arithmetic  expressions  have 
been  removed  from  the  COBOL  Compiler  Validation  System. 

1.10  Timeliness  of  the  Validation  Summary  Reports 

The  timeliness  of  the  Validation  Summary  Report  is  important.  Compilers  and 
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tacir  related  ope  rati  no  system  software  ore  modified  several  times  a year. 

T f e Comp  i l e r Validation  'ystcT  used  to  validate  c . • p i 1 • r s is  also  up  I ■ t ? 1 
during  tie  life  ef  the  system.  Therefore  to  er.ru  re  that  the  later  t version 
of  hoth  the  vendor's  compiler  and  tfe  Validation  System  ore  the  latest  offici 
illy  released  versions,  check  with  the: 

Director 

Federal  COKCL  Compiler  Testing  Service 
Department  of  the  havy 
Kashina  ton,  D.  C.  2L'd76 
(707)  dv7-1747 


the  late 


Version 


Please  use  the  Validation  Summary  Report  r.umher  of  this  report 
corresponding  with  the  Testing  Service. 
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SECTION  2.  Dl  TAILED  EVALUATION  OF  ERRORS 


Tl.is  section  su*o«ritos  tLe  results  of  the  compilation  jnd  execution  of 
the  programs  cor  [-rising  the  COBOL  Compiler  Validation  System.  Tie 
section  is  suLdiviried  into  two  sections:  Section  2.1.  lists  tte  Un.ijtse 

syntax  not  accepted  by  the  compiler;  Section  2.2.  explains  the  semantic 
differences  between  the  compiler  implementation  and  the  language  specification. 
All  errors  within  each  section  are  grouped  by  processing  nodule- 

Each  program  in  the  COBOL  Compiler  Validation  System  is  identified  by  a 5- 
character  program  name.  The  name  associates  the  routine  with  the  functional 
processing  module  and  level  of  Ah'S  COBOL  tested  within  the  program'. 

The  five  character  name  has  the  general  format  XXN’I't.  The  first  two 
characters  are  alphabetic  and  identify  the  functional  module  tested  by 
the  program.  The  permissible  values  are:: 

LB  - Library 
NC  - Nucleus 
RC  - Random  Access 
SG  Segment  at  ion 
SQ  - Sequential 
ST  - Sort 

TH  - Table  Handling 

The  third  character  of  the  audit  routine  name  is  either  a 1m  2*  or  ?* 
and  identifies  the  -level  of  the  functional  module  Leing  tested.  Lach 
module  and  level  is  represented  by  several  programs.  The  fourth  and  fifth 
characters  of  the  program  name  are  sequence  numbers  for  programs  which  test 
features  in  the  same  level  of  the  same  functional  processing  module. 

As  an  example*  the  program  name  LC210  is  the  tenth  program  in  the  series  of 
routines  which  test  the  second  level  of  the  Nucleus  module. 

Each  error  noted  in  this  section  makes  reference  to  a proeram  or  functional 
COBOL  module  in  the  Validation  Summary  Working  Document  (APPENDIX  A).  This 
reference  provides  the  documented  results  of  an  occurrence  of  errors  detected 
during  the  running  of  the  COBOL  Compiler  Validation  System  using  the  compiler 
being  validated.  The  Validation  Summary  Working  Document  is  presented  in 
sequence  by  functional  module*  functional  module  level  and  program  number 
as  defined  above. 
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2.1.  Syntactic  Errors 

2.1.1.  Suclcus  module. 

2. 1.1.1  C ha r ac t er -s t r i ng  continuation.  The  compiler  rejected 

continuation  of  cha rac t e r-s t r i ngs  across  more  than  one 

line. 

See  NC205. 

I 
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Semantic  errors. 

.1  Nucleus  Kodulf . 

2. 2. 1.1  the  compiler  failed  to  treat  a group  level  move  as  an  alpha- 
numeric to  alphanumeric  move.  Editing  was  done  even  though  hoth 
operands  were  not  elementary. 

See  NC1C5  and  SQ21A 

.2  Sequential  Access  Kodule. 

2. 2. 2.1  The  contents  of  the  first  character  position  of  each  record 
of  a file  destined  for  the  printer*  was  always  blanked  out 
on  the  hard  copy. 

See  SU101 

2. 2. 2. 2 The  compiler  faited  to  successfully  execute  a subscripted 
READ .. .INTO. . . statement.  The  subscript  was  evaluated  before 
the  record  was  read  instead  of  after  the  record  was  read*  but 
before  the  implied  move  takes  place. 

See  SQ215 

2. 2. 2. 3 The  compiler  failed  to  reference  correctly  a qualified 
66-level  entry. 

See  SQ215 

2.2 .2.4  The  compiler  rejected  the  figurative  constant  ZERO  in  the 
advancing  phrase  of  a write  statement  referencing  a record 
of  a printer  destined  file. 

See  SQ213 


2.2.2. 5  WRITE  mnemonic-name.  A write  statement  referencing  top-of- 
page  followed  subsequently  by  a second  write  referencing  top- 
of-page  caused  incorrect  page  ejection. 

See  SQ21R 
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section  4.  i:.f crna riel  irtrs 

The  CCEfL  Crrpilcr  Validation  System  cc-.tiir.s  tests  ..►ich  are  not  considered 
as  being  PASS  or  TAIL  situations.  These  tests  cover  the  cases  where  the 
results  of  a ivcn  staterent  are  not  defined  in  the  l.-rsruaqe  specifications. 
These  tests  are  documented  in  Section  4.1. 

Section  4.?.  gives  other  information  about  the  compiler  which  was  discovered 
during  validation.  Included  in  this  section  are  items  which  are  hardware 
dependent  and  situations  where  ieplcrentor  defined  variations  are  permitted. 

Section  4.J.  gives  information  on  hardware  dependent  features  that  are  not 
supported  hy  the  subject  COUCL  C<  pilir.  These  iters  do  not  render  a compiler 
nonstandard. 

Section  4.4  gives  information  concerning  the  use  of  facilities  outside 
the  COBOL  prey  ram  that  accomplish  functions  defined  in  COBOL  (See  1.4 
of  this  VSR). 

The  COBOL  language  specification  "American  National  Standard  COBOL  V5.23- 
1963"  as  defined  by  TIE’S  Fub  21  is  used  as  the  reference  document. 

4.1.  Information  Tests 

4.1.1.  Nucleus  Module 

4. 1.1.1.  CLOSE  fol.lowed  hy  an  CI’FN  IOTP l! T of  a rrinter  destined  file  (Lr10I): 

CLOSE-TEST-2  of  L P 1 0 3 closed  then  reopened  the  printer  file.  The  result  of 
closing  then  reopeninq  a unit  record  output  file  is  not  specifically  addressed 
in  the  language  specifications.  The  object  of  this  test  is  to  determine 
whether  the  file  is  logically  repositioned  to  its  heninning  and  all  previ- 
ous results  overwritten  or  whether  the  file  is  partitioned  and  all  output 
is  preserved. 


The  results  for  this  compiler: 

All  printed  output  was  provided. 

4. 1.1. 2.  IF. ..Signed  Numeric  item  equals  Alphanumeric  item  (NC1C3): 

IF-TEST-65  compares  two  elementary  items  with  the  first  being 
PIC  SKIM  VALUE  111111111111111111  and  the  second  havinj  a PIC  *(18) 
VALUE  "111111111111111111".  The  items  are  compared  by  the  form  IF 
identifer-1  EOUAL  TO  i dent i f i er -2  . . . 

The  results  of  this  compiler:  , 

The  two  elementary  items  did  compare  equal. 

4. 1.1. 3.  IF . ..NUMERIC  Condition  tests  (NC103): 
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CLASS-TFST-17  on  cl  CLASS-TEST-??  of  hCIO*  ore  infer  ".at  ion  tests  i‘ire  doto  itf  s 
• i t li  PICTURE  S9  contain  -1  jmi  *1  rcrpectivplv.  Pach  data  i ton.  is  redefined 
as  an  alphanumeric  data  item  P'ICTlleE  X.  The  alphanumeric  data  iten  is  then 
referenced  in  a NUMERIC  test  to  determine  whot'ir  the  signed  data  item  contains 
an  indicator  to  represent  the  s i in#  i.e.  an  overpunch.  Jf  both  data  items  are 
determined  to  be  numeric/  then  the  system  does  not  use  an  indicator  techniaue 
far  the  siqn.  If  both  data  iters  are  determined  to  be  not  nuneric  then  the 
system  uses  an  indicator  method  for  loth  positive  and  negative  numbers.  If  one 
of  the  data  items  is  nureric  and  the  ether  is  not/  then  the  system  uses  the 
indicator  method  for  one  case  but  not  the  other.  The  sion  is  not  addressed 
by  the  COn ci  language  specifications  and  consequently  is  left  to  the 
implementors  of  C<' POL  compilers  as  to  its  representation. 

The  results  for  this  compiler: 

Negative  data  redefined  as  alphanumeric  data: 

The  data  item  tested  NOT  NUNERIC. 

Positive  data  redefined  as  alphanumeric  data: 

The  data  item  tested  NOT  NUNERIC. 

4. 1.1. 4 rove  signed  numeric  field  to  alphanumeric  field  (UC105): 

NOVE-TEST-146  and  PC VE - T E S T -1 49  in  NC105  move  signed  numeric  fields  with 
PICTURE  S9(5)  to  fields  with  PICTURE  X(5).  The  source  fields  hau  contents 
of  + 60666  and  -70717  for  PC VE -TE S TS-1 4 3 and  149  respectively.  The  language 
specification  is  not  definitive  as  to  whether  the  absolute  value  is  to  be 
moved  (i.e.  the  sign  is  stripped)  or  whether  the  contents  are  moved 
without  regard  to  the  sign.  The  results  of  these  tests  should  be  considered 
only  in  light  of  the  results  of  the  information  tests  in  4.1.1.?. 

The  results  for  this  compiler: 

■NO VE  *60666  TO  X<5) 

The  absolute  value  was  moved;  The  sign  was  stripped. 

XOVE  -70717  TO  X (5) 

The  absolute  value  was  moved;  The  sign  was  stripped. 

4. 1.1.5.  ADD  without  ON  SIZE  ERROR  (NC1C6): 

ADD-TEST-17  in  NC106  checks  the  effect  of  a size  error  on  the  result  of  an 
ADD  statement  which  does  not  have  the  ON  SIZE  ERROR  phrase.  The  statement 
used  was  adding  SV9<5>/  S9<6)V9<6>/  SV9<5>  GIVING  S9(b)  ROUNDED.  Identifier 
S9(6)V9(t)  contained  the  value  333333.333333.  the  SV9(5)  descriptions  were  the 
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same  identifier  and  contained  the  value  .11111.  Ihe  language  s r ec i f i c a t i ans 
da  not  define  the  results  of  an  arithmetic  operation  ait!  ..at  tie  f I / £ rSIO® 
clirasc/  when  the  result  cannot  he  contained  in  the  result. a nt-ider. tifier 
which  causes  truncation  of  significant  di  tits.  The  results  of  tt.  is  test 
require  ( digits  and  the  re su  1 1 3u t - i dc n t i f i e r contains  only  5.  fir  a further 
discussion/  see  xi. 23-1962  American  National  Standard  COBOL  page  2-26/ 
Section  6.2. 2(1)/  The  SIZE  ERROR  clause. 


The  results  for  this  compiler: 

The  result  was  stored  in  the  resultant- identifier  with 
the  high  orcer  digit  truncated. 


4. 1.1. 6.  Albrcviated  Combined  Relation  Conditions  C'.C2D1): 

IF  — TEST-110  in  NC201  utilises  an  abbreviated  combined  relation  condition 
to  determine  the  direction  the  compiler  will  take  in  a case  where  the 
use  of  the  word  NOT  is  indeed  confusing.  The  Ijn-niaoe  specification 

1 states  on  page  2-73  section  5. 2. 1.1  that  when  the  construct  and  f 0 T < is  usrri 

in  a source  program/  the  word  NOT  is  to  be  treated  as  a logical  ciprator. 

This  becomes  relevant  when  taken  in  the  context  of  the  later  abbreviation 
of  the  relational  operator  in  the  statement.  Tor  example  A = n A'.D  ' T LCSr 
TdAN  C OR  0 would  expand  to  the  following:  A = P AND  NOT  A LESS  THAN  C OR 

A LESS  THAN  0.  The  test  in  question  contains  the  following:  A = P AND  IS 

NOT  LESS  THAN  C OR  D which  strongly  suggests  that  the  word  NOT  in  this  case 
is  relational  in  nature  and  not  looical.  The  concept  of  an  optional  uord 
(IS)  changing  the  meaning  of  a statement  is  contrary  to  the  philosophy  of 
COBOL  and  as  a result  this  test  is  presented  as  information  only. 

The  values  for  the  variables  in  the  condition  are  A = 5/  fi  = 7/  C=1  and  0=6. 

Using  these  values  in  place  of  the  variables/  the  condition  expands  is  the 
following  if  NOT  is  treated  as  relational: 

((5  GREATER  THAN  7)  AND  (5  NOT  LESS  THAN'  1))  OR  (5  NOT  LESS  THAN  6) 

In  this  case  the  condition  is  false. 

If  the  NOT  is  logical/  the  condition  expands  as  the  following: 

((5  GREATER  THAN  7 AND  NOT  (5  LFSS  THAN  1))  OR  <5  LESS  THAN  6) 

In  this  case  the  condition  is  true. 

The  results  of  this  compiler: 

The  word  NOT  was  treated  as  a logical  operator.. 

4. 1.1. 7 The  Synchronized  clause  (NC1PR): 


The  language  specification  does  not  specify  the  results  of  the  use  of 
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the  synchronized  clou  so  without  the  specification  of  either  LCFT 
or  KI'HT.  in  the  event  that  such  results  are  provided  durinc  the 
validation  process/  they  are  included  here  as  information. 


The  results  of  this  compiler: 

The  compiler  did  not  indicate  how  the  synchronization  would  he  done. 

4.1.2.  Random  Access  Module 

4. 1.2.1  Multiple  length  records  <RC 1 02  ) : 

Program  RC1P2  produces  a file  containing  records  of  multiple  sizes. 

The  purpose  of  this  test  is  to  determine  whether  multiple  size 

records  are  written  cr  whether  the  maximum  size  record  is  always 

written.  As  the  file  is  created/  records  of  both  length  are  written; 

and  as  the  smaller  records  are  built/  information  uniqjely  identifying 

each  record  is  pLaced  in  the  portion  of  the  larger  record  that 

would  not  logically  he  written  to  the  external  media.  When  the 

file  is  later  retrieved  the  record  area  is  examined  to  deter  mine 

whether  the  extra  portion  beyond  the  end  of  the  smaller  record  is  available 

when  each  of  the  smaller  records  is  read.  The  language  specific a ion 

does  not  readily  suggest  that  the  external  media  will  be  impacted 

by  the  size  of  the  logical  record  as  defined  in  the  CPF. OL  program. 


The  results  of  this  compiler  are: 


The  compiler  appears  to  support  multiple  length  records. 


4.1.3.  Sequential  Access  Module 

4. 1.3.1.  CLOSE  REEL  for  Output  Files  < SOI  01 > : 

The  language  specifications  are  not  clear  on  what  is  the  first  record  written 
to  a reel  after  a CLOSE  REEL  statement  has  been  executed.  In  the  program  SQ1°1/ 

a multi-reel  file  is  created  using  the  CLOSE  REEL  statement.  I N F C- Vi- TE ST-5 

reads  the  first  record  of  the  second  reel. 

The  results  for  this  compiler: 

S 

The  first  record  read  on  the  second  reel  was  the  first  record  written 
following  the  CLOSE  REEL. 

. I 

I 

4. 1.3. 2.  Multiple  Length  Records  for  Tape  files  (SQ102): 

The  audit  routine  SQ102  attempts  to  create  a tape  file  with  multiple 
length  records.  The  file  is  then  read  and  the  record  area  examined  to  determine 

whether  fixed  lenqth  records  are  written.  For  a discussion  of  the  operation 

refer  to  4. 1.2. 2 under  the  discussion  of  Random  Access. 
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I tip  rtsutts  for  this  compiler  jrp; 

The  compiler  jppi'irs  to  support  multiple  length  records. 


4. 1.3. 3.  Multiple  length  record'  for  sequential  mass-storaqe  files  < S>'.  1 C 4 ) : 

Audit  routine  SB104  creates  a sequent  ini  mass-storaoe  file  with  rultiple 
length  records.  The  file  is  then  read  and  the  records  arc  checked  for 
multiple  length  by  evaluating  the  data  in  them.  Refer  to  4. 1.2.1  under  the 
of  rultiple  records  for  Random  Access  Files  for  a description  of  a si'll  a r 
test. 

The  results  for  this  compiler  are: 

The  compiler  appears  to  support  multiple  length  records. 


4. 1.3. 4.  FILE-LIMITS  Clause 


The  FILE-LI.VITS  clause  may  or  may  not  be  used  by  the  compiler  and/or 
operating  system  to  allocate  file  space.  The  language  specification 
clearly  allows  an  external  source  or  function  to  accomplish  some  functions 
described  in  the  COaOL  languages  in  particular/  file  facilities  management 
type  f unc t ions . 

The  results  for  this  compiler  are: 

The  FILE-LIMITS  clause  is  treated  as  comments  by  this  compiler  in 
that  file  allocation  is  handled  through  control  cards. 


4. 1.3. 5 RERUN  Clause  option 

The  language  specification  requires  that  the  imolementor  must  provide  at 
least  one  of  the  specified  forms  of  the  RFRllN  clause.  For  this  validation 
the  following  RERUN  Clause  option  was  used. 

The  results  for  this  compiler  are: 

RFRUN  ON  UT-S-RERUN  EVERY  10  RECORDS  OF  file-name. 


4.2.  Other  Information 
4.2.1.  Library  Source  Text 

The  language  specification  is  somewhat  vague  as  to  the  content  of  the  library 
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text  frier  to  being  copied.  As  a result  there  are  a rultitude  of  technioues 
that  nave  been  net  ed  for  »'strll  i*.  lim  the  scurep  taxt  for  3 subsequent 
r I Y s t a t t'r  on  t.  T!  is  information  is  provided  in  order  to  understand  the 
technique  used  by  this  system. 

The  results  for  this  compiler  ore: 

This  system  requires  that  the  following  program  entries  be  duplicated 
i a the  library  text: 

H re  cor'i-n  3 me 


4.2.2.  hornal  Print  Positioning  (SQlCI): 

The  language  specification  docs  not  provide  the  default  specifications  for 
the  use  of  the  «hITE  statement  in  relation  to  files  destined  for  a printer 
when  the  ADVANCING  phrase  is  not  specified  by  the  user.  The  purpose  of  this 
test  is  to  observe  the  default  taken  by  the  compiler. 


The  results  for  this  compiler  are: 

This  compiler  assures  BEFORE  ADVANCING  1 when  no  advancing  phrase  is  used. 
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4.3  ha  rtf*  arc  Dependent  Features 

4.3.1  r..  r Jw,.  re  Switches.  This  system  dues  rot  support  hardware  switches 
and  as  a result  .2 1 1 tests  related  to  the  testing  of  switches  were 
deleted. 

4.4  Transparent  Imp  lerr.ent  at  ion 

4.4.1  Declarative  Procedures. 

labeling  of  files  on  this  system  is  handled  through  external  control 
statements  and  consequently  the  COBAL  constructs  intended  for  In^clirm 
procedures  ar«?  not  utilized  ly  this  compiler.  However  tfrre  were  cases 
in  which  statements  either  had  to  be  removed  for  successful 
execution  or  produced  compiler  messages  indicating  the  statement 
was  syntactically  incorrect.  This  included  the  presence  of  USE 
procedures  which  made  reference  to  uninitialized  user  label  fields 
defined  by  the  VALUE  OF  clause. 


\j  imj>  * * 4 


,Ui  l.vV  i 


ccvs6>:-vsr220 


SECTION  5 Sorilv.-kE  E WIRO.V'.f  M . 

The  C0Tj.il  or  re  f r r c need  in  this  !ocus!».t  w<s  va  Minted  usinr  the  sol  t.  .rr 
environment  described  in  this  section.  When  usinq  a to  edification  of  the 
described  er.v  i rc  n.m 1 nt » the  corpiler  ray  or  rny  not  continue  to  conform  to  the 
standard.  It  should  be  noted  that  during  the  validation  process/  on  attempt 
is  made  to  validate  as  many  different  options  as  possible. 

The  use  of  compiler  options/  implementor-neres  in  the  rnviro  nmpnt  Division 
and  any  form,  of  optimization  which  is  not  described  in  this  report  coild  cause 
the  compiler  to  produce  a program  that  does  not  perform  according  to  the 
specifications  of  Standard  CCPOL.  Only  the  environment  described  in  this 
document  has  been  used  with  this  compiler  to  satisfy  the  re qu  i r e r i - 1 s of  IIP' 

PUP  21  and  fP/R  1 01 -5? . 1 305 . 1 a . (Any  deviations  which  must  he  corrected  as 
per  the  referenced  FPmR  are  described  in  Sections  2 and  3 of  this  report.) 

1.  Options  or  parameters  used  on  the  processor  call  statement  for  the  compiler: 
The  following  op t i ons /pa r am. e t e r s were  used  during  the  validation. 

Options  specified: 

LOAD 

STATE 

TRUNC 

LIB 

OPT IKI ZC /NOOP  TIM Z E (Both  options  were  used  at  different  times) 


3 pt i ons  defaulted: 


SPA  CE 1 

NCNUM 

FLAG  J 

NOBATCH 

SEQ 

NCNAME 

SOURCE 

COMPILE  =01 

NODMAP 

NORFSIDFNT 

NOPPAP 

NODYNAM 

MOCLIST 

NOSYNT# X 

NOSUPPAP 

NOSYMDMP 

NOXRE  F 

NOTEST 

NOSXRFF 

VERB 

NODECK 

ZWB 

APOST 

SYST 

NOFLOW 

NOEND  JOB 

NOTERM 

NOADV 

2.  Environment  Division  implementor-names. 

For  the  purooses  of  this  discussion  the  suffix  ’ddnane*  is  thf  external 
name  by  which  the  file  is  known  to  the  operating  system. 


Printer  destined  files 
UT-S-ddname 
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Tape  files 
U T - 5 - d d n a m e 

Sequential  t ass-stor  me  files 
U T-S-ddname 
Random  Access  files 
UT-S-ddname 
Sort  files  (SO) 

ut-s-sortwroi 
UT-S-SCR  TWK02 
UT-S-S'^R  TWK03 

Switch  names 

Not  supported  by  the  compiler. 

Source  Computer  names 
IBM-360-165 

Object  Computer  names 
IBM-360-165 


3.  Optimization.  The  compiler  may  or  may  not  hove  optimization  features. 

If  there  was  an  optimization  feature  available*  it  was  used  during  the 
validation  process  (during  a separate  execution  of  the  Conailer  Validation 
System)  to  determine  if  its  use  causes  the  compiler  to  produce  a irogr«m  which 
does  not  give  the  expected  results.  If  the  optimization  is  invoked  t'rounh 
the  compiler  call  statement  then  it  is  mentioned  in  paranraoh  1 alove.  If 
it  is  invoked  through  the  introduction  of  syntax  in  other  than  the  Data 
and  Procedure  Divisions  of  the  source  program  it  is  shown  below.  Optimization 
which  would  require  modification  to  the  Data  and  Procedure  Divisions  is  not 
considered  in  this  report  in  that  it  is  beyond  the  scope  of  the  use  of 
standard  COBOL  and  the  validation  process. 

The  optimization  feature  for  this  compiler  is  invoked  through  the  compiler 
call  statement.  See  1.  above.  There  was  no  differnce  in  the  execution 
of  the  programs  when  the  optimization  feature  was  invoked. 
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A-1  Ibis  appendix  is  a workinn  paper  produced  during  the  validation 

and  documents  the  results  o(  the  compilation  and  execution  ol  pact,  of  the 
,ror.-.s  c oi  i r r i s i ng  the  CCVS.  The  results  contained  herein  ore  based  on 
the  use  of  the  ccmpiler  within  the  Validation  Fnvircnurnt  identified  in 
this  appendix.  This  appendix  (Validation  Summary  'Parking  document)  is  not 
part  of  the  official  Validation  Suss  ary  Report  (VSR)  and  is  not  intended 
to  reflect  in  any  way  the  compiler's  usefulness  or  degree  of  conformance 
to  the  language  specifications. 

The  reader  of  this  appendix  should  keep  in  rind  that  the  sane  problem 
area  itay  an  Car  in  more  than  one  jroqram  hut  is  considered  only  as  one 
single  descrepancy  and  as  such  is  reflected  only  once  in  the  body  of  the 
VSR  (The  VSR  will  in  turn  only  reference  the  first  occurance  of  the  problem 
in  the  appendix.) 


This  appendix  is  divided  into  two  parts.  The  first  part  describes 
the  Validation  Environment  which  includes  conf i gur a t i on * operation  system* 
and  compiler  inf  ornrat  ion  as  welt  as  the  input  parameter  and  options  used  by 
the  VP-Routine  to  accomplish  th  e validation. 

The  second  part  of  th  document  is  divided  into  two  categories  of 
information:  compilation  and  execution  results.  Information  items  are 

referenced  only  in  section  4 of  the  VSP  and  are  not  repeated  here. 

The  reference  document  for  COPOL  is  FIPS-PUB  21  ( x 5 .2 3- 1 968 ) . 
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CD.'PILER  IDr.MIFICATUN:  CC-'L  Version  A Rl 

COMPUTER  SYSTEM:  IBP,  3E0/65 

DERATING  SYSTEM:  OS/PVT  Version  21.8  HASP  3.1 

COPE  IGURATICV:  ?S  PIS*  crjVrS 

01  7 -TRACK  TAI’T  DRIVES 

3 7 9 ler-CK  TAPE  DRIVES 

07  PRI 'ITERS 
01  CARD  READER 
01  CARD  PUNCH 

COMPILER  AMD  SYSTEM  OPTIONS: 

LOAD/  STATE/  NOPPfP,  TRUNC/  OPT/  NOOPT 

COBOL  MANUAL:  IBM  OS  Full  American  National  Standard  C0I30L/ 

Revision/  t;C?8-6396-3 
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LIBRARY  h.OOULE  LIVEL  1 
LBlOl  thru  LB1G7 

A . Comp  i lotion 
No  errors. 

6.  execution 

Ko  discretancies  noted. 

LIBRARY  MODULE  LEVEL  2 
LB201  thru  LEI205 

A.  Compilation 
Ko  errors. 

B.  Execution 

Ko  discrepancies  noted. 

NUCLEUS  NODULE  LEVEL  1 
NC  101 

A . Comp i l at  ion 
Ko  errors. 

B.  Execution 

Ko  discrepancies  noted. 

NC102 

A . Comp i l at  ion 

1.  Warning  messages: 

"Period  preceded  by  space.  Assume  end  of  sentence 
flagqed  the  following  construct  in  NOTE-TEST-4: 
"NOTE  J." 
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"Co.',  a should  not  he  receded  by  space." 

" C O " r not  followed  ! y s [ : c e . Assured." 

"Period  preceded  by  space.  Assure  end  of  sentence 

flagged  the  following  construct  in  N3TE-TEST-4; 

"NOTE  , ." 


3.  Warning  messages: 

“Coma  should  not  be  preceded  by  space." 

"Comma  not  followed  by  space.  Assured." 

"Period  preceded  by  space.  Assure  end  of  sentence 

flagged  the  following  construct  in  .'OTF-TrST-4: 

"NOTE  ;." 

4.  Warning  message: 

"Period  preceded  by  space.  Assume  end  of  sentence 
flagged  the  following  construct  in  NOTE-TEST-4: 

"NOTE  ." 

B . E xecut ion 

No  discrepancies  noted. 

NC  103 

A.  Compilation 

All  references  to  hardware  switches  had  to  be  deleted 
to  avoid  fatal  errors/  as  hardware  switches  were  not  imple- 
mented. SUH-TEST-1  through  S-'H  - T E S T -<?  were  deleted. 

B.  Execution 
No  discrepancies  noted. 

VC  1 04 

A.  Compilation 
No  errors. 

P.  Exerution 


No  discrepancies  noted 
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sc  105 

A . Comp  i l at i on 
No  errors. 

P . f iptut  ion 

NdVE- If  ST-76  end  '0VE-TEST-92  failed  when  a croup  level  rove  was  not 
treated  as  an  alp hanui- eric  to  alphanumeric  rr-'ve.  Editing  was  done 
even  though  both  operands  were  not  elementary. 

See  page  2-38*  paragraph  6.13.4  (5)*  the  ".OVE  statement. 

NC106  and  NC1C7 

A . C omp i l at i on 
No  errors. 

B.  Execution 

ho  discrepancies  noted. 

NC108 

A . Compilation 

ABB  HE  V- TE ST-9  had  to  be  deleted  as  hardware  switches  were  not 
implemented  in  this  compiler. 

B . Execut ion 

No  discrepancies  noted. 

NC  1 09  thru  NC113 

A.  Compilation 
No  errors.  ■ 

B.  Execution  * 

No  discrepancies  noted. 

NUCLEUS  MODULE  LEVEL  2 

NC  201 


A.  The  following  E-level  message 


p. 

NC202 

A . 

8. 

NC203 

A. 

e. 


NC20A 

A 
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ILLEGAL  C OMPAR  ISON  Of  TWO  NUMERIC  LITERALS.  STATE  K ENT 
f l a good  the  followinq  construct  in  IF-TEST-119: 

If  2 ♦ 2 = A 

PERFORM  PASS  CO  TO  IF--WKITE-119. 

IF-TEST-119  had  to  he  deleted  for  that  reason, 
f xe  cu t i on 

»'o  discrepanc ies  noted.  . 

Compilation 
•Jo  errors  . 

Execution 

No  discrepancies  noted. 

Compilation 

Several  warning  messages  of  an  informative  nature  were 
Execution 

COTP-TEST-AO/  CPMP-TEST-A1*  and  CPMP-TEST-A2  failed  in 
the  COMPUTE  statement. 


Test  No. 


AO 
A 1 
A2 


Computed  Results 


99320 

0 

0 


Expected  Pesults 


1 08 1 AO 
1 
1 


Comp i l a t ion 
No  errors. 

B.  Execution 

No  discrepancies  noted. 


NC205 


| 


DISCARDED. 


\ 

f lagged. 


test i nq 
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A . C i i i l 'i  1 1 o n 

1.  C-lrvrl  nfssa'ie: 

10  MISSING  OK  MISPLACED  IN  WOVE  STATEMENT  . ASSUMED  If. 

REQUIRED  POSITION. 

W- 1 eve l oess age  : 

SUPERFLUOUS  TO  FOUND  IN  MOVE  STATEMFMT.  IGNORED, 
and  E-level  message: 

NUMERIC  LITERAL  (ID)  MAY  NOT  PE  TARGET  FIELD  FOR  NUMERIC 
LITERAL  (ID)  IN  MOVE  STATEMENT,  AND  IS  DISCARDED. 

all  flapped  the  following  broken-line  construct  in 
CONTIN-TEST-T  : 

'V.OVE  Q 

5 

6 

7 i 

8 TO  CONT-B.” 

2.  W-level*  Message: 

PERIOD  PRECEDED  BY  SPACE.  ASSUME  END  OF  SENTENCE. 

C-level  message: 

TO  MISSING  OR  MISPLACED  IN  MOVE  STATEMENT.  ASSUMED  IN  REQUIRED 
POSITION. 

and  F-level  messages: 

NUMERIC  LITERAL  (ID)  MAY  NOT  PE  TARGET  FIELD  FOR  NUMERIC 
LITERAL  (ID)  IN  MOVE  STATEMENT*  AND  IS  DISCARDED. 

EXPECTING  NEW  STATEMENT.  FOUND  NUMERIC  LITERAL.  DELETING  TILL 
NEXT  VERB  OR  PR 0 C E DUR E -N AM E . 


all  flagged  the  following  broken-line  construct  in  C CN T I N- TE ST-?  : 


CCVSbS-VShViZO 


7 TO  C.'NT-B." 
i . C - 1 1 v e l message: 

ILLEGAL  CARACTFR.  SCA\  srV'J'EP  AT  NEXT  VALID  CHARAC IFR. 
and  r-lcvel  Hfssagps: 

FOUND  'NUMERIC  LITERAL*  A F T f A CONDITION.  FXPFCT  *CR*,  * AND  * OP 
VtPt>  TO  I MEDIATELY  FOLLOW  CONDITION.  PFLCTING  TILL  ONE  Of  THESE 
IS  FCUVO. 

I NOT  DEFINED.  DFLITIF'G  TILL  LEGAL  ELEMENT  FOUND, 
all  flagged  the  following  broken-line  construct  in  CCNT IN-TE ST-4 : 
IF  CONT-E  EQUA 

L TO  ZERO 

S AN 

D GREATER 

ZERO  AND  CONT-B 

EQUAL  TO  CONT-C  OR  <<((<(0 


- CONT-D  EQUAL  TO  CONT-D  0 

- R -1 1 ♦ CONT-F)))))) 

AND  N 

OT  NEGATIVE 

ZERO 

PERFORM  PASS 
EL 

SE 

PERFORM  FAIL. 

4.  W-lcvel  message: 

DIVIO  SHOULD  BEGIN  A-MARGIN. 

ILLEGAL  CHARACTER  IN  COL  7 PRECEDING  DIVID  PARAGRAPH  NAME • 

END  OF  SENTENCE  SHOULD  PRECEOE  E.  ASSUMED  PRESENT. 

and  E-level  messages: 

F NOT  DEFINED.  DFLET1NG  TILL  LEGAL  FLEMFNT  FOUND. 

GIVIN  NOT  DEFINED. 

r,  not  defined. 

RCUNDE  not  defined. 

D NOT  DEFINED. 

all  flagged  the  following  broken-line  construct  in  COMIN-TEST-5: 
"DIV 
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10 


E CO'iT-E  JN 
IN 


TO  CCNT-C 
S C 0 \ T -D  PQUN 


•IU 


de 


N SIZE  f R R 


OR  PFRFOR 


PASS  G 


0 CONTI N-WRITE-5. 


As  a result  of  the  above  errors/  the  following  tests  were  deleted 
from  the  final  run: 


CONTIN-TEST-1 
C ONT I N- T E ST-2 
CONTIN-TEST-4 
CON TIN-TEST-5 


e.  Execution 

No  discrepancies  encountered  in  the  non-deleted  tests. 

NC206  thru  NC210 

A . Compi lat ion 
No  errors. 

P.  Execution 

No  discrepancies  noted. 

N C 21 1 

A . Compilation 

The  E-level  error: 

ILLEGAL  COMPARISON  Of  TWO  NU"IRIC  LITERALS.  STATEMENT  DISCARDED, 
was  flaqoed  on  the  following  construct  in  CC-TEST-34: 


IF  1 ♦ 2 ♦ 3 IS  LESS  THAN  7 

OR  NOT  6 IS  LFSS  THAN  1 4 2 ♦ +4 
PERFORM  PASS  ELSE  PERFORM  FAIL. 


Test  CC-TEST-3A  was  subsequently  deleted. 
E x e cut  ion 
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No  d is  c r or  an  c i es  noted. 

NC212 

A . Compilation 
Mo  errors. 

8 . Execut ion  „ . 

No  discrepanc les  noted.  . 


RANDOM  ACCESS  KpDULE  LEVFL  1 
RC101 

4r 

A . Com p it  at  ion 
No  errors. 

P.  Execution 

No  discrepancies  noted. 

RC132 

A.  Comp  i l at  ion 
No  errors. 

P . Execution 

(Run  1)  Run  terminated  following  milL  T - T F S T-1 0 while  attempting  to 
open  for  output  the  second  of  two  random  access  files.  System 
completion  code  3UA  was  flaysed. 

(Run  2)  The  BLOCK  CONTAINS  ...  CHARACTERS  clause  for  the  second  file 
was  deleted  for  this  run<  however*  the  run  terminated  after  M'lLT- 
TEST-12  with  >n  0C7  completion  code. 

(Run  3)  For  the  program  to  execute  successfully  Information 
Tests  MlLT-TFST-13  and  M'JL  T- T l S I - 1 4 were  deleted.  No  other 
d i sc repanc i e s were  noted. 

RC  103 

A . Comp i l at  ion 
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No  errors 
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B.  tuecut ion 

T l S T - 1 6 failed  on  INVALID  ('EY  condition  on  a «!  RITE  statement  which 
was  preceeded  by  a S L F K statement. 

This  problem  was  the  result  of  not  allowing  rnouoh  space  on  a mass 
storage  device  for  the  file. 

The  F I L E -L I 1 1 T S clause  appears  to  be  treated  as  comments  by  the 
compiler.  The  function  of  determining  the  logical  file  limits  is 
provided  through  th?  job  control  language.  TFST-16  failed  because 
the  amount  of  area  allocated  was  inconsistent  with  logical  space 
required  for  the  test. 

RC104  thru  RC105 

A . Comp i l a t i on 
No  errors. 

B . Execution 

No  discrepancies  noted. 

RANDOM  ACCESS  MODULE  LEVEL  2 
RC  201 

A . Comp i l at  ion 
No  errors. 

B.  Execution 

(Run  1)  This  run  terminated  following  TrST-01  while  attempt  irg  to 
open  for  output  the  second  of  two  random  access  files.  System 
completion  code  30A  was  flagged. 

(Run  2)  for  the  program  to  execute  successfully  the  ELOCr  CONTAINS 
...CHARACTERS  clause  for  the  second  file  was  eliminated. 

1.  TEST-01 / TEST-02/  TEST-09/  TEST-10/  TEST-11/  TEST-25/  and 
TEST-26  failed.  These  tests  involve  execution  of  declarative 
procedures  following  the  opening  and  closing  of  two  random 
access  files  for  input/  input -output / and  output. 

See  page  2-179/  paragraph  A. 5/  the  USE  statement. 

2.  TEST-16  failed  when  200  was  considered  an  invalid  key  for 
RANDOM-f ILE-1 . Refer  to  RC103. 

RC202 
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A . C rnp  i l i t i o n 
No  errors. 

B.  Execut ion 

1.  TEST-01,  TEST-02,  TEST-09,  TEST-10,  TEST-11,  TEST-27,  ini 
TEST-28  failed.  These  tests  involve  execution  of  declarative 
procedures  following  the  opening  and  closing  of  two  random 
access  files  for  input,  input-output,  and  output. 

See  page  2-179,  paragraph  4.5,  the  USE  statement. 

2.  TEST-16  failed  when  200  was  considered  an  invalid  key  for 
RAND0!"-FILE-1  . Refer  to  RC103. 

RC  203 

A . Comp i l at i on 
No  errors. 

B . E xecut ion 

(Run  1)  This  run  terminated  following  TEST-15  with  an  IKF111I 
status  code  indicat ino  a WRITE,  NO  REC  FCUND  and  a OOOOOCFtOOOPOO 

BD AM  code.  All  tests  failed. 

(Run  2)  For  this  program  to  execute  successfully,  L APEL-T F S T-1 6 was 
deleted.  All  other  tests  also  failed.  These  tests  involve 
execution  of  declarative  procedures  before  and  after  beginning  and 
ending  labels  are  processed  for  three  random  access  files. 

See  page  2-179,  paragraph  4.5,  the  USE  statement. 

SEGMENTATION  NODULE  LEVEL  1 

SGI 01  thru  SG103 

A.  Compilation- 
No  errors. 

B . Execution 

No  discrepancies  noted. 

SEGMENTATION  MODULE  LEVEL  2 
SG201  thru  SG203 
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A . Compilation 
No  errors. 

P . f uccut ion 

No  discrepancies  noted. 

SEQUENTIAL  ACCESS  rODULE  LEVEL  1 
Sold 

A . Comp  i l a t ion 
No  errors. 

B.  Execution 

The  contents  of  column  1 of  the  printer  report  mbs  always 
suppressed. 

SU102  thru  SG1Q8 

A.  Corpilation 

No  errors . 

B . E x e cut  ion 

No  discrepancies  noted. 


SEQUENTIAL  ACCESS  MODULE  LEVEL  2 
SO  201 

A . Compi lat ion 

Wherever  Declarative  procedures  were  specified  in  conjunction  with 
file  or  reel  labels*  the  following  E-level  message  was  flagged: 

USE  SPECIFIED  FOR  file-name  WITH  LAPEL  RECORDS  OMITTEO  OR  STANDARD. 
SENTENCE  IGNORED. 

Declaratives  were  deleted. 

R.  Execution 

All  tests  involving  declaratives  failed  because  of  the  above 
delet ions . 

SQ202 
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A . Compilation 

Wherever  Declarative  procedures  LPrr  specified  in  conjunction  with 
"AFTER  ...  L A P F.  L PROCEDURE  r'l  IAPUT  or  OllTruT"  the  following  E-level 
ressage  wus  flagged: 

USE  STATEMENTS  IMPLY  FIOTH  STANDARD  AND  NON-STANDARD  LARFLS. 

USE  IGNORED. 

Declaratives  uere  subsequently  deleted. 

R . E xecut ion 

Fecause  of  the  above  deletions*  all  tests  involving  declaratives 
f ai led. 

SQ203 

A . Compilation 

Wherever  USE  BEFORE  STANDARD  LABEL  PROCEDURE  Of)  INPUT  or  OUTPUT  was 
used*  the  following  E-level  ressage  was  flagged: 

USE  STATEMENTS  IMPLY  DOTH  STANDARD  AND  NON-STANDARD  LABELS.  USE 
IGNORED. 

USE-2  and  ITSE  - A declaratives  were  subsequently  deleted. 

B . F xe cut i on 

Because  of  the  deletion  of  declaratives*  the  following  tests  failed: 

USE -TC  ST-2 
USE-TEST- A 
USE-TEST-5 
USE-TCST-6 
USE-TEST-P 

S02CA 

A.  Compilation 
No  errors. 

8 . Ex  e cut  ion 

No  discrepancies. 

S0205 


A . Comp i l at  ion 


Su2C6 

A . 


SQ20  7 

A . 


SC208 

A. 
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Wherever  Declarative  procedures  were  specified  in  conjunction  with 

" A f T fc  ft LARFL  PROCEDURE  ON  f i l e -n  am  e " / the  following  E-level 

rissole  was  flagged: 


USE  STATE'.  ENTS  IMPLY  PCTH  STANDARD  AND  KON-S  T A NO  A RD  LAPELS.  USE 
IGNORED. 


Declaratives  were  subsequently  deleted. 

F x c cut  ion 

Recause  of  above  deletions  all  tests  involving  declaratives  failed. 


Compilation 

All  USE  state  rents  were  flagged  with  the  following  E-level  message: 


USE  SPECIFIED  FOR  file-name  WITH  LAPEL  RECORDS  OMITTED  OR  STANDARD. 
SENTENCE  IGNORED. 


All  declaratives  were  subsequently  deleted. 
Execution 


This  run  ten  in.itrd  before  01-USE-TEST  with  a S613  completion  code 
while  attempting  to  open  for  output  the  third  of  three  random  access 
files.  No  output  report  was  generated. 


Compilat ion 

No  errors. 

E xecut ion 

Suppressed  fry  SQ2C6  failure  to  execute. 


Comp i l at  ion 


Two  Declarative  procedures  specifying  "USE  AFTER  ...  FILE  LABEL 
PROCEDURE  ON  1-0”  cause  the  following  E-level  message  to  be  flagged: 


USE  STATEMENTS  IMPLY  BOTH  STANDARD  AND  NON-STANDARD  LABELS. 
IGNORED. 


USE 


These  declaratives  were  subsequently  deleted. 


> 


i 
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[<.  Execution 

f ECiUSe  of  deletion  of  the  ’ ! ;ve  rteclcr  jt  iv"s»  tic-  foLlowin:  tccts 

failed: 

CFEN-I-O-TEST 

07- USE -TEST 

08- USE-TEST 

09- USE-TEST 

10- USE-TEST 

S02C9 

A.  Comp i l at  ion 

Alt  declarative  procedures  were  flagged  with  the  following  E-level 
message : 

USE  SPECIFIED  F OH  file-name  WITH  LABEL  RECORDS  OMITTED  OR  STANDARD. 
SENTENCE  IGNORED. 

All  declaratives  were  deleted. 

B . E xecut  ion 

Because  of  the  above  mentioned  deletions  the  following  tests  failed. 

OPEN-TEST-f 

CLOSE-TEST-1 

CLOSE-TEST-2 

CLOSE-TEST-3 

SQ210 

A . Comp  i l at  ion 

Wherever  declarative  procedures  were  specified  for  "AFTER  ...  UNIT 
LABEL  PROCEDURE  ON  INPUT  or  OUTPUT"  were  flagged  with  the  following 
E-level  message: 

USE  STATEMENTS  IMPLY  BOTH  STANDARD  AND  NON-STANDARD  LABEIS.  USE 
IGNORED . 

Declaratives  were  deleted. 

B . E xecut ion 

1.  Because  of  the  above  mentioned  deletions  the  following  tests 
failed: 

USE-TEST-2 

USE-TEST-3 
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USE-ItST-4 
USE-TFST-5 
USE-TFST-6 
USE-Tl ST-7 
USE-TLST-o 
USE-TEST-9 

2 . NRITE-TCST-1  failed  when  mass-storage  file  was  able  to  write  -ore 
records  than  FILE-LIMITS  clause  should  have  permitted. 

SO  2 1 1 

A . Comp  i l at  ion 

All  declarative  procedures  were  flaaged  with  the  following  C-level 
message: 

USE  SPECIFIED  FOR  file-nar.e  WITH  LAPEL  RECORDS  OMITTED  OR  STA'JCARD. 
SENTENCE  IGNORED. 

Declaratives  were  deleted  subsequently. 

8.  Execution 

Because  of  deletion  of  declaratives  the  following  tests  failed: 

USE-TEST-1  - 

USF-TEST-2 

USE-TEST-3 

USE-TEST-4 

USE-TEST-5 

SQ212 

A . Compi lat ion 
No  errors. 

B.  Execution 

No  discrepancies  noted. 

SQ213 

A . Comp i l at  ion 

All  declarative  procedures  were  flagged  with  the  following  E-level 
message: 

USE  SPECIFIED  FOR  file-name  WITH  RECORDS  OMITTED  OR  STANDARD. 

SENTENCE  IGNORED. 


L. 
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All  dec  la  rat i ves  were  deleted. 
P . Execution 


As  a result  of  the  above  deletion*  the  followin']  tests  failed: 

01-USE-TEST 

07-USE-TE5T 

09-USE-TEST 


SC214 

A.  Compilation 
No  ei  r ors  . 

8 . E xecut ion 

The  WRITE  FROM  021-TEST  Tailed  when  a WRITE  alphanumeric  edited  item 
FROM  a group  level  item  was  not  treated  as  an  alphanumeric  to  alpha- 
numer i c move . 

Refer  to  NC105. 

SQ215 

A.  Compilation 

1.  All  declarative  procedures  specifying  USE  AFTER  ...  FILE  LA3EL 
PROCEDURE  ON  file-name  were  flagged  with  the  following  E-level 
messages : 

USE  SPECIFIED  FOR  file-name  WITH  LABEL  RECORDS  OMITTED  OR 
STANDARD.  SENTENCE  IGNOREO. 

These  declaratives  were  subsequently  deleted  along  with  DFCLAR- 
TEST-6  and  DE CLA R -TE S T-7  which  referenced  declarative  section 
and  paragraph  names  from  outside  the  DECLARATIVES. 

2.  Numerous  E-level  messages  were  flaqged  for  line  continuation 
constructs.  These  constructs  were  modified  for  subsequent  run. 
Refer  to  NC205  for  description  of  general  remarks  concerning 
line  continuation. 

B . E xe  cut  ion 

1.  As  a result  of  the  above  mentioned  deletions  all  declarative 
tests  failed  or  were  deleted. 

2.  LABEL-TEST-1  failed.  This  test  involves  the  USE  BEFORE  STANDARD 
BEGINNING  LABEL  PROCEDURE  ON  INPUT  and  OUTPUT.  And  tests  the 
VALUE  OF  ...  qualified  clause. 
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T . READ-TEST-1  and  R I M>  - T F S T - 2 failed  when  t T c y were  unrlle  t a 

execute  successfully  a subscripted  READ  ...  INTO  ...  statement. 

The  subscript  was  contained  inside  the  record.  The  subscript 
value  was  evaluated  lefore  the  record  was  read  and  thus  the 
wrong  value  was  used  when  the  record  was  moved  by  the  INTO  phrase. 

, 4.  The  run  terminated  during  66-TEST-1  with  on  OC 7 completion  code. 

An  attempt  was  being  made  to  reference  a qualified  66-level  entry. 

Si-216 

A . Comp  i l at  ion 

All  declarative  procedures  were  flagged  by  the  following  E-level 
message: 

USE  SPECIFIED  FOR  file-name  WITH  LAPEL  RECORDS  OMITTED  OR  STANDARD. 

SENTENCE  IGNORED. 

! All  declaratives  were  deleted. 

0.  Execution 

i 

> (Run  1)  The  run  terminated  abnormally  following  LOCK-TEST-3  with  a 037 
completion  code.  LOCK-TEST-4  was  deleted. 

(Run  2)  LOCK-TEST-1/  LOCK-TEST-2/  and  LOCK-TEST-3  failed  due  to  the 
deletion  of  all  declaratives. 

SQ217 

A.  Compilation 
No  errors. 

> B.  Execution 

i 

LOCK-TEST-7  failed  when  an  input  file  was  specified  by  a USE  procedure 
i as  incorrectly  opened. 

1 - 
| S0218 

A.  Compi l at  ion 

1.  All  WRITE  statements  for  a file  assigned  to  the  system  prir  and 
, which  did  not  have  the  ADVANCING  option/  drew  the  following  C level 

Message: 

ALL  WRITE  STATEMENTS  FOR  DNM=3-52  SHOULD  HAVE  ADVANCING  OPTION. 

■ BEFORE  ADVANCING  1 LINE  ASSUMED . 


CCVS6 >-VSR2?0 


2.  The  following  C-levcl  ressane: 

•/  OVA  \C  If  i*  Oi  TI0«  M.ST  ‘T  FOLLOWED  BY  "Mf-.OMC  N AM:*  NUMERIC 
INTEGRAL  DATA-NAME  OR  INTEGER  LOSS  THAN  100.  FOUND  ZERO. 
SUBSTITUTING  1. 

was  flagged  for  the  following  construct: 

'.'RITE  PRINT -R EC  BEFORE  ADVANCING  ZERO. 

B.  Execution 

1.  Many  test  failures  could  be  attributed  to  the  corpiler  action 
noted  above.  Those  which  would  not  are  shown  below: 

(a)  WRITE-TEST-7  which  checks  consecutive  AFTER  ADVANCING  0 
LINES  statements  and  BEFORE  ADVANCING  0 LINES  statements 
failed  due  to  A(2)  above.  The  word  "PASS"  which  should  have 
appeared  with  all  letters  on  the  same  tine  instead  appeared: 


<h)  k R I TE-T ES T-8  failed.  This  test  issues  commands  to  "WRITE 
PEFORE  ADVANCING  mne non i c -n ame " followed  immediately  by 
"WRITE  AFTER  ADVANCING  mnemonic-name”.  The  imp l en en t o r -name 
specified  was  for  top-of-page  positioning.  t.o  blank  page 
appeared  between  printed  page. 

(c)  URT-TEST-9  failed.  This  test  issues  commands  to  "WRITE 
FRO*  ...  BEFORE  mnemon i c -na me “ followed  immediately  by 
“WRITE  FROM  ...  AFTER  ADVANCING  mnemon i c-name" . Test 
results  were  the  same  as  in  WRITE-TEST-8  which  failed. 


SORT  f.OOULE  LEVEL  1 


ST1C1  thru  ST  1 1 4 


Comp i l at  ion 


No  errors. 


E xecut ion 


No  discrepancies  noted. 


SORT  MODULE  LEVEL  2 


ST201  thru  ST207 


ccvs^s-vsR^ao 

A . Con.p  i l at  ion 
Vo  errors. 

U . Execution 

No  discrepancies  noted. 

TABLE  HANDLING  MODULE  LEVEL  1 
T Hi 01  thru  T HI 04 

A.  Compilation 
No  errors. 

B.  Execution 

No  discrepancies  noted. 

TABLE  HANDLING  MODULE  LEVEL  2 
TH201  thru  TH211 

A . Comp  i l at  i ori 
No  errors. 

R . Execution 

No  discrepancies  noted. 

TABLE  HANDLING  MODULE  LEVEL  3 
TH301  thru  TH311 

A.  Compilation 
No  errors  . 

0 . Execution 

No  discrepancies  noted. 
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